home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 2 / 64er_Magazin_Sonderheft_02_86-02_1986_Markt__Technik_de.d64 / pong 64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  808b  |  13 lines
  1. 0 print"[147][158]";:fori=0to39:print" ";:next:v=49152:forj=1to7:reada$:fori=1to36
  2. 1 pokev,10*(asc(mid$(a$,i*2-1,1))-65)+val(mid$(a$,i*2,1)):v=v+1:next:next
  3. 2 v=832:fori=vto960:pokei,0:next:fori=0to20:pokev+i*3,255:next:v=53248:poke2,0
  4. 8 pokev+16,2:pokev+4,0:pokev+21,7:q=(peek(2)and3):p(q)=p(q)+1:print""p(2);
  5. 9 printspc(25);p(1):sys49152:goto8
  6. 50 dataq9o3o1a1u8o1a3u8q9a0o1d3u8o1c3u8o1c9u8q9h2o1a2u8q9d2o1a0u8q2b3o2y9a7o2y8
  7. 51 dataa7x2o2z0a7x2o2n1a3o2n4a3q2a4o2e0u8x2o2d9u8x2o2m8a3o2n7a3x2o2d2u8q9r3o1a2
  8. 52 datat2o1a5t2q9f0o1s5t2r4a1u8r3a0w0d2w1t2o2a1u8r4a3u8r3a1w0d2w1t2o2a3u8u6z5u7
  9. 53 datau8d4q9a1o1z5u7r4a5u8r3z0t2u8b0u2w4f9r6b3x8z0t2u8a8x2w4y7o4a3u6z0t2o2a5u8
  10. 54 datar3b6u8e1a4r2y9t2u8b5x8a4u8u8c3h4u8g6q9a6o1b6u8u8b3u6a4u8u8a8b0y0f4q9a2o1
  11. 55 datab6u8q2b8q0z5n6u8z3u2u8y8r3d1u8u8a8r3d0u8y0b6u6s5t2r3b6u8x8y9t2e1a4u8a3o1
  12. 56 datay9t2h6i1t2k6o4b1k6o4b5j6n3a2j6q9a1u8y9u2w4f8r6y3x2j6x2w4x0o4x6u2j6a1a1z5
  13.